|
|
|
|
|
|
|
' IconView Puzzle
' Copyright © 1998 by Desaware Inc. All Rights Reserved
Option Explicit
Private Declare Function LoadIconBynum Lib "user32.dll" Alias "LoadIconA" ( _
ByVal hInstance As Long, _
ByVal lpIconName As Long) As Long
Private Declare Function LoadIconByString Lib "user32.dll" Alias "LoadIconA" ( _
ByVal hInstance As Long, _
ByVal lpIconName As String) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As _
Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Const IDI_APPLICATION = 32512&
Private Const IDI_HAND = 32513&
Private Const IDI_OUESTION = 32514&
Private Const IDI_EXCLAMATION = 32515&
Private Const IDI_ASTERISK = 32516&
Private Const IDI_WINLOGO = 32517&
Private m_IconID As Long
Private Sub Form_Load()
m_IconID = IDI APPLICATION
End Sub
Private Sub optIcon_Click(Index As Integer)
Select Case Index
Case 0
m_IconID = IDI_APPLICATION
Case 1
m_IconID = IDI_ASTERISK
Case 2
m_IconID = IDI_EXCLAMATION
Case 3
m_IconID = IDI_HAND
Case 4
m_IconID = IDI_QUESTION
Case 5 |
|
|
|
|
|